home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 9 / AMUG BBS in a Box Volume IX (August 1993) (MacWizards).iso / Files / Hyper / H-Hx / HomeDesk.cpt / Home Desk / background_2742.txt < prev    next >
Encoding:
Text File  |  1987-10-27  |  13.6 KB  |  698 lines
  1. -- background: 2742 from stack: in
  2. -- bmap block id: 4386
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on idle
  8.   put the time into field "Time"
  9.   put the date into field "Calendar"
  10.   if visible of field "TV" is true then
  11.     put numToChar(random(52)+65) into field "TV"
  12.   end if
  13.   pass idle
  14. end idle
  15.  
  16.  
  17.  
  18. -- part 2 (field)
  19. -- low flags: 01
  20. -- high flags: 0000
  21. -- rect: left=313 top=71 right=86 bottom=379
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 1
  25. -- font id: 3
  26. -- text size: 9
  27. -- style flags: 256
  28. -- line height: 12
  29. -- part name: Time
  30.  
  31.  
  32. -- part 3 (button)
  33. -- low flags: 00
  34. -- high flags: 2000
  35. -- rect: left=363 top=157 right=180 bottom=409
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Finder
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   if the shiftKey is down then
  47.     doMenu Quit Hypercard
  48.   else
  49.     answer "Are you sure you want quit?" with "Yes" or "No"
  50.     if it is "Yes" then
  51.       doMenu Quit Hypercard
  52.     end if
  53.   end if
  54. end mouseUp
  55.  
  56.  
  57.  
  58. -- part 5 (button)
  59. -- low flags: 00
  60. -- high flags: 0000
  61. -- rect: left=73 top=169 right=203 bottom=135
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 1
  65. -- font id: 0
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: Phone
  70. ----- HyperTalk script -----
  71. on mouseUp
  72.   go to card id 3103 of stack "Phone"
  73. end mouseUp
  74.  
  75.  
  76.  
  77.  
  78. -- part 4 (button)
  79. -- low flags: 00
  80. -- high flags: 0000
  81. -- rect: left=129 top=195 right=221 bottom=179
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 1
  85. -- font id: 0
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: Calculator
  90. ----- HyperTalk script -----
  91. on mouseUp
  92.   doMenu Calculator+
  93. end mouseUp
  94.  
  95.  
  96.  
  97. -- part 7 (button)
  98. -- low flags: 00
  99. -- high flags: 2000
  100. -- rect: left=358 top=138 right=157 bottom=388
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 1
  104. -- font id: 0
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: Menubar
  109. ----- HyperTalk script -----
  110. on mouseUp
  111.   show menubar
  112. end mouseUp
  113.  
  114.  
  115.  
  116. -- part 8 (button)
  117. -- low flags: 00
  118. -- high flags: 2000
  119. -- rect: left=387 top=138 right=157 bottom=415
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: Hide menubar
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   hide menubar
  131. end mouseUp
  132.  
  133.  
  134.  
  135. -- part 9 (button)
  136. -- low flags: 00
  137. -- high flags: 0000
  138. -- rect: left=76 top=202 right=216 bottom=129
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 1
  142. -- font id: 0
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: SmartCom
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   Open SmartCom II
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 11 (button)
  155. -- low flags: 00
  156. -- high flags: 2000
  157. -- rect: left=386 top=184 right=196 bottom=408
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Open Stack
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   doMenu Open Stack...
  169. end mouseUp
  170.  
  171.  
  172.  
  173. -- part 12 (button)
  174. -- low flags: 00
  175. -- high flags: 0000
  176. -- rect: left=326 top=153 right=204 bottom=346
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 1
  180. -- font id: 0
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: Word
  185. ----- HyperTalk script -----
  186. on mouseUp
  187.   Open Microsoft Word
  188. end mouseUp
  189.  
  190.  
  191.  
  192. -- part 16 (button)
  193. -- low flags: 00
  194. -- high flags: 2000
  195. -- rect: left=441 top=48 right=83 bottom=453
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 0 / 0
  198. -- text alignment: 1
  199. -- font id: 0
  200. -- text size: 12
  201. -- style flags: 0
  202. -- line height: 16
  203. -- part name: TV
  204. ----- HyperTalk script -----
  205. on mouseUp
  206.   if visible of field "TV" is true then
  207.     hide field "TV"
  208.   else
  209.     show field "TV"
  210.   end if
  211. end mouseUp
  212.  
  213.  
  214.  
  215. -- part 23 (field)
  216. -- low flags: 00
  217. -- high flags: 0002
  218. -- rect: left=260 top=136 right=149 bottom=322
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 1
  222. -- font id: 3
  223. -- text size: 9
  224. -- style flags: 256
  225. -- line height: 12
  226. -- part name: Calendar
  227.  
  228.  
  229. -- part 14 (button)
  230. -- low flags: 00
  231. -- high flags: 0000
  232. -- rect: left=289 top=253 right=304 bottom=320
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 0 / 0
  235. -- text alignment: 1
  236. -- font id: 0
  237. -- text size: 12
  238. -- style flags: 0
  239. -- line height: 16
  240. -- part name: Pagemaker
  241. ----- HyperTalk script -----
  242. on mouseUp
  243.   open Pagemaker 2.0
  244. end mouseUp
  245.  
  246.  
  247.  
  248. -- part 15 (field)
  249. -- low flags: 81
  250. -- high flags: 0002
  251. -- rect: left=400 top=48 right=83 bottom=443
  252. -- title width / last selected line: 0
  253. -- icon id / first selected line: 0 / 0
  254. -- text alignment: 1
  255. -- font id: 13
  256. -- text size: 24
  257. -- style flags: 0
  258. -- line height: 32
  259. -- part name: TV
  260. ----- HyperTalk script -----
  261. on mouseUp
  262.   hide field "TV"
  263. end mouseUp
  264.  
  265.  
  266. -- part 17 (button)
  267. -- low flags: 00
  268. -- high flags: 2000
  269. -- rect: left=400 top=48 right=83 bottom=443
  270. -- title width / last selected line: 0
  271. -- icon id / first selected line: 0 / 0
  272. -- text alignment: 1
  273. -- font id: 0
  274. -- text size: 12
  275. -- style flags: 0
  276. -- line height: 16
  277. -- part name: VW
  278. ----- HyperTalk script -----
  279. on mouseUp
  280.   hide field "TV"
  281.   open "VideoWorks"
  282. end mouseUp
  283.  
  284.  
  285.  
  286. -- part 18 (button)
  287. -- low flags: 00
  288. -- high flags: 0000
  289. -- rect: left=306 top=46 right=68 bottom=377
  290. -- title width / last selected line: 0
  291. -- icon id / first selected line: 0 / 0
  292. -- text alignment: 1
  293. -- font id: 0
  294. -- text size: 12
  295. -- style flags: 0
  296. -- line height: 16
  297. -- part name: New Button
  298. ----- HyperTalk script -----
  299. on mouseUp
  300.   go to card id 5615
  301. end mouseUp
  302.  
  303.  
  304.  
  305.  
  306. -- part 19 (button)
  307. -- low flags: 00
  308. -- high flags: 0000
  309. -- rect: left=259 top=58 right=87 bottom=303
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 0 / 0
  312. -- text alignment: 1
  313. -- font id: 0
  314. -- text size: 12
  315. -- style flags: 0
  316. -- line height: 16
  317. -- part name: MacVision
  318. ----- HyperTalk script -----
  319. on mouseUp
  320.   doMenu "MacVision"
  321. end mouseUp
  322.  
  323.  
  324.  
  325. -- part 10 (button)
  326. -- low flags: 00
  327. -- high flags: 2000
  328. -- rect: left=259 top=131 right=168 bottom=323
  329. -- title width / last selected line: 0
  330. -- icon id / first selected line: 0 / 0
  331. -- text alignment: 1
  332. -- font id: 0
  333. -- text size: 12
  334. -- style flags: 0
  335. -- line height: 16
  336. -- part name: Calendar
  337. ----- HyperTalk script -----
  338. on mouseUp
  339.   get the seconds
  340.   convert it to dateItems
  341.   put ((item 1 of it) - 1987) *2 into whichSix
  342.   if item 2 of it > 6 then add 1 to whichSix
  343.   visual effect zoom open
  344.   if whichSix < 1 then go card 1 of stack "DateBook"
  345.   else if whichSix > 5 then go card 5 of stack "DateBook"
  346.   else
  347.     go to card whichSix of stack "DateBook"
  348.     send "bracketWeek" && the seconds to this card
  349.   end if
  350.   get the seconds
  351.   convert it to dateItems
  352.   put ((item 1 of it) - 1987) *2 into whichSix
  353.   if item 2 of it > 6 then add 1 to whichSix
  354.   visual effect zoom open
  355.   if whichSix < 1 then go card 1 of stack "DateBook"
  356.   else if whichSix > 5 then go card 5 of stack "DateBook"
  357.   else
  358.     go to card whichSix of stack "DateBook"
  359.     send "bracketWeek" && the seconds to this card
  360.   end if
  361. end mouseUp
  362.  
  363.  
  364.  
  365.  
  366. -- part 24 (button)
  367. -- low flags: 00
  368. -- high flags: 0000
  369. -- rect: left=242 top=22 right=37 bottom=267
  370. -- title width / last selected line: 0
  371. -- icon id / first selected line: 0 / 0
  372. -- text alignment: 1
  373. -- font id: 0
  374. -- text size: 12
  375. -- style flags: 0
  376. -- line height: 16
  377. -- part name: Lock
  378. ----- HyperTalk script -----
  379. on mouseUp
  380.   visual effect wipe down
  381.   go to card id 2995
  382. end mouseUp
  383.  
  384.  
  385.  
  386.  
  387. -- part 21 (button)
  388. -- low flags: 00
  389. -- high flags: 0000
  390. -- rect: left=188 top=169 right=202 bottom=226
  391. -- title width / last selected line: 0
  392. -- icon id / first selected line: 0 / 0
  393. -- text alignment: 1
  394. -- font id: 0
  395. -- text size: 12
  396. -- style flags: 0
  397. -- line height: 16
  398. -- part name: Rolodex
  399. ----- HyperTalk script -----
  400. on mouseUp
  401.   go to Address
  402. end mouseUp
  403.  
  404.  
  405.  
  406. -- part 25 (button)
  407. -- low flags: 00
  408. -- high flags: 0000
  409. -- rect: left=222 top=261 right=305 bottom=247
  410. -- title width / last selected line: 0
  411. -- icon id / first selected line: 0 / 0
  412. -- text alignment: 1
  413. -- font id: 0
  414. -- text size: 12
  415. -- style flags: 0
  416. -- line height: 16
  417. -- part name: FullPaint
  418. ----- HyperTalk script -----
  419. on mouseUp
  420.   open FullPaint
  421. end mouseUp
  422.  
  423.  
  424.  
  425. -- part 26 (button)
  426. -- low flags: 00
  427. -- high flags: 0000
  428. -- rect: left=194 top=261 right=305 bottom=210
  429. -- title width / last selected line: 0
  430. -- icon id / first selected line: 0 / 0
  431. -- text alignment: 1
  432. -- font id: 0
  433. -- text size: 12
  434. -- style flags: 0
  435. -- line height: 16
  436. -- part name: MacDraw
  437. ----- HyperTalk script -----
  438. on mouseUp
  439.   open MacDraw
  440. end mouseUp
  441.  
  442.  
  443.  
  444. -- part 27 (button)
  445. -- low flags: 00
  446. -- high flags: 0000
  447. -- rect: left=253 top=265 right=286 bottom=286
  448. -- title width / last selected line: 0
  449. -- icon id / first selected line: 0 / 0
  450. -- text alignment: 1
  451. -- font id: 0
  452. -- text size: 12
  453. -- style flags: 0
  454. -- line height: 16
  455. -- part name: Super Paint
  456. ----- HyperTalk script -----
  457. on mouseUp
  458.   open SuperPaint
  459. end mouseUp
  460.  
  461.  
  462.  
  463. -- part 28 (button)
  464. -- low flags: 00
  465. -- high flags: 0000
  466. -- rect: left=248 top=286 right=307 bottom=290
  467. -- title width / last selected line: 0
  468. -- icon id / first selected line: 0 / 0
  469. -- text alignment: 1
  470. -- font id: 0
  471. -- text size: 12
  472. -- style flags: 0
  473. -- line height: 16
  474. -- part name: Cricket Draw
  475. ----- HyperTalk script -----
  476. on mouseUp
  477.   open Cricket Draw
  478. end mouseUp
  479.  
  480.  
  481.  
  482. -- part 29 (button)
  483. -- low flags: 00
  484. -- high flags: 0000
  485. -- rect: left=210 top=275 right=305 bottom=222
  486. -- title width / last selected line: 0
  487. -- icon id / first selected line: 0 / 0
  488. -- text alignment: 1
  489. -- font id: 0
  490. -- text size: 12
  491. -- style flags: 0
  492. -- line height: 16
  493. -- part name: MacPaint
  494. ----- HyperTalk script -----
  495. on mouseUp
  496.   Open MacPaint
  497. end mouseUp
  498.  
  499.  
  500.  
  501. -- part 30 (button)
  502. -- low flags: 00
  503. -- high flags: 0000
  504. -- rect: left=208 top=47 right=91 bottom=220
  505. -- title width / last selected line: 0
  506. -- icon id / first selected line: 0 / 0
  507. -- text alignment: 1
  508. -- font id: 0
  509. -- text size: 12
  510. -- style flags: 0
  511. -- line height: 16
  512. -- part name: Safe
  513. ----- HyperTalk script -----
  514. on mouseUp
  515.   push this card
  516.   visual effect iris open
  517.   go to card id 8906
  518. end mouseUp
  519.  
  520.  
  521.  
  522.  
  523. -- part 31 (button)
  524. -- low flags: 00
  525. -- high flags: 0000
  526. -- rect: left=51 top=145 right=159 bottom=74
  527. -- title width / last selected line: 0
  528. -- icon id / first selected line: 0 / 0
  529. -- text alignment: 1
  530. -- font id: 0
  531. -- text size: 12
  532. -- style flags: 0
  533. -- line height: 16
  534. -- part name: panic
  535. ----- HyperTalk script -----
  536. on mouseUp
  537.   push this card
  538.   play "Boing" e c
  539.   repeat 2
  540.     go to card id 5615
  541.     show 7 cards
  542.   end repeat
  543.   pop card
  544. end mouseUp
  545.  
  546.  
  547.  
  548. -- part 32 (button)
  549. -- low flags: 00
  550. -- high flags: 0000
  551. -- rect: left=489 top=58 right=115 bottom=511
  552. -- title width / last selected line: 0
  553. -- icon id / first selected line: 0 / 0
  554. -- text alignment: 1
  555. -- font id: 0
  556. -- text size: 12
  557. -- style flags: 0
  558. -- line height: 16
  559. -- part name: Lights On
  560. ----- HyperTalk script -----
  561. on mouseUp
  562.   If the shiftKey is down then
  563.     go to card id 5079
  564.     doMenu Quit HyperCard
  565.   else
  566.     push this card
  567.     visual effect dissolve very fast
  568.     go to card id 5079
  569.   end if
  570. end mouseUp
  571.  
  572.  
  573.  
  574. -- part 33 (button)
  575. -- low flags: 00
  576. -- high flags: 0000
  577. -- rect: left=428 top=210 right=224 bottom=442
  578. -- title width / last selected line: 0
  579. -- icon id / first selected line: 0 / 0
  580. -- text alignment: 1
  581. -- font id: 0
  582. -- text size: 12
  583. -- style flags: 0
  584. -- line height: 16
  585. -- part name: Button
  586. ----- HyperTalk script -----
  587. on mouseUp
  588.   choose button tool
  589. end mouseUp
  590.  
  591.  
  592.  
  593. -- part 34 (button)
  594. -- low flags: 00
  595. -- high flags: 0000
  596. -- rect: left=399 top=207 right=224 bottom=424
  597. -- title width / last selected line: 0
  598. -- icon id / first selected line: 0 / 0
  599. -- text alignment: 1
  600. -- font id: 0
  601. -- text size: 12
  602. -- style flags: 0
  603. -- line height: 16
  604. -- part name: Field
  605. ----- HyperTalk script -----
  606. on mouseUp
  607.   choose field tool
  608. end mouseUp
  609.  
  610.  
  611.  
  612. -- part 35 (button)
  613. -- low flags: 00
  614. -- high flags: 0000
  615. -- rect: left=336 top=207 right=223 bottom=358
  616. -- title width / last selected line: 0
  617. -- icon id / first selected line: 0 / 0
  618. -- text alignment: 1
  619. -- font id: 0
  620. -- text size: 12
  621. -- style flags: 0
  622. -- line height: 16
  623. -- part name: Message
  624. ----- HyperTalk script -----
  625. on mouseUp
  626.   if visible of message window is true then
  627.     hide message window
  628.   else
  629.     show message window
  630.   end if
  631. end mouseUp
  632.  
  633.  
  634.  
  635. -- part 36 (button)
  636. -- low flags: 00
  637. -- high flags: 0000
  638. -- rect: left=357 top=207 right=223 bottom=379
  639. -- title width / last selected line: 0
  640. -- icon id / first selected line: 0 / 0
  641. -- text alignment: 1
  642. -- font id: 0
  643. -- text size: 12
  644. -- style flags: 0
  645. -- line height: 16
  646. -- part name: Button
  647. ----- HyperTalk script -----
  648. on mouseUp
  649.   if visible of tool window is true then
  650.     hide tool window
  651.   else
  652.     show tool window
  653.   end if
  654. end mouseUp
  655.  
  656.  
  657.  
  658. -- part 37 (button)
  659. -- low flags: 00
  660. -- high flags: 0000
  661. -- rect: left=378 top=207 right=223 bottom=400
  662. -- title width / last selected line: 0
  663. -- icon id / first selected line: 0 / 0
  664. -- text alignment: 1
  665. -- font id: 0
  666. -- text size: 12
  667. -- style flags: 0
  668. -- line height: 16
  669. -- part name: Pattern
  670. ----- HyperTalk script -----
  671. on mouseUp
  672.   if visible of pattern window is true then
  673.     hide pattern window
  674.   else
  675.     show pattern window
  676.   end if
  677. end mouseUp
  678.  
  679.  
  680.  
  681. -- part 41 (button)
  682. -- low flags: 00
  683. -- high flags: 0000
  684. -- rect: left=307 top=46 right=69 bottom=379
  685. -- title width / last selected line: 0
  686. -- icon id / first selected line: 0 / 0
  687. -- text alignment: 1
  688. -- font id: 0
  689. -- text size: 12
  690. -- style flags: 0
  691. -- line height: 16
  692. -- part name: Radio
  693. ----- HyperTalk script -----
  694. on mouseUp
  695.   open MusicWorks
  696. end mouseUp
  697.  
  698.